﻿Imports System.Data.OleDb
Public Class frmExportExcel

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        frmSelectLlamadas.Close()
        Me.Close()
    End Sub


    Private Sub frmExportExcel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'busco el id de la empresa seleccionada en el filtro
        DataGridView1.Columns.Clear()

        Using cadenaConexBD()
            Dim bucarEmpresaxId As New OleDbCommand("SELECT id_empr FROM empresa WHERE nomb_empr = '" & frmSelectLlamadas.cbo_empresa.Text & "'", cadenaConexBD)
            Dim idEmpresa = bucarEmpresaxId.ExecuteScalar()
            lblIdEmpresa.Text = idEmpresa
        End Using

        Dim Da As New OleDbDataAdapter
        Dim Cmd As New OleDbCommand
        Dim Dt As DataTable
        Dim SelectAtencion As String
        Dim SelectVentas As String
        Dim SelectPOSvetas As String


        SelectAtencion = "SELECT llamada.id_llam,llamada.fau_llam, llamada.fec_llam, llamada.nlot_llam, tipo_llamada.desc_tllam, empresa.nomb_empr, auditor.noap_au, auditado.noap_ado,llamada.vaop_salu, llamada.vaop_emp, llamada.vaop_ind, llamada.vaop_disp, llamada.vaop_comp, llamada.vaop_info, llamada.vaop_com, llamada.vaop_cred, llamada.vaop_cie,llamada.vato_llam, llamada.tfav_llam, llamada.tctra_llam, llamada.caso_llam FROM ((((llamada Inner Join tipo_llamada ON((llamada.id_tllam = tipo_llamada.id_tllam))) Inner Join auditor ON((llamada.id_au = auditor.id_au))) Inner Join auditado ON((llamada.id_ado = auditado.id_ado)))Inner Join empresa ON((auditado.id_empr = empresa.id_empr))) WHERE (llamada.id_empr = " & lblIdEmpresa.Text & ")"
        SelectVentas = "SELECT llamada_vta.id_llam, llamada_vta.fau_llam, llamada_vta.fec_llam, llamada_vta.nlot_llam, tipo_llamada.desc_tllam,empresa.nomb_empr, auditor.noap_au, auditado.noap_ado, llamada_vta.vaop_salu, llamada_vta.vaop_emp, llamada_vta.vaop_ind, llamada_vta.vaop_man, llamada_vta.vaop_ent, llamada_vta.vaop_spe, llamada_vta.vaop_pre, llamada_vta.vaop_mec, llamada_vta.vaop_pide, llamada_vta.vato_llam, llamada_vta.tfav_llam, llamada_vta.tctra_llam, llamada_vta.caso_llam FROM ((((llamada_vta Inner Join tipo_llamada ON((llamada_vta.id_tllam = tipo_llamada.id_tllam))) Inner Join auditor ON((llamada_vta.id_au = auditor.id_au))) Inner Join auditado ON((llamada_vta.id_ado = auditado.id_ado))) Inner Join empresa ON((llamada_vta.id_empr = empresa.id_empr))) WHERE (llamada_vta.id_empr = " & lblIdEmpresa.Text & ")"
        SelectPOSvetas = "SELECT llamada_pvta.id_llam, llamada_pvta.fau_llam, llamada_pvta.fec_llam, llamada_pvta.nlot_llam, tipo_llamada.desc_tllam, empresa.nomb_empr, auditor.noap_au, auditado.noap_ado, llamada_pvta.vaop_salu, llamada_pvta.vaop_emp, llamada_pvta.vaop_esc, llamada_pvta.vaop_ind,llamada_pvta.vaop_disp, llamada_pvta.vaop_pre, llamada_pvta.vaop_com, llamada_pvta.vaop_cie, llamada_pvta.vato_llam, llamada_pvta.tfav_llam, llamada_pvta.tctra_llam, llamada_pvta.caso_llam FROM ((((llamada_pvta Inner Join tipo_llamada ON((llamada_pvta.id_tllam = tipo_llamada.id_tllam))) Inner Join auditor ON((llamada_pvta.id_au = auditor.id_au))) Inner Join auditado ON((llamada_pvta.id_ado = auditado.id_ado)))Inner Join empresa ON((llamada_pvta.id_empr = empresa.id_empr))) WHERE (llamada_pvta.id_empr = " & lblIdEmpresa.Text & ")"


        With Cmd
            .CommandType = CommandType.Text
            If (frmSelectLlamadas.rbAtencion.Checked = True) Then
                .CommandText = SelectAtencion
            ElseIf (frmSelectLlamadas.RBventas.Checked = True) Then
                .CommandText = SelectVentas
            ElseIf (frmSelectLlamadas.RBPosventa.Checked = True) Then
                .CommandText = SelectPOSvetas
            End If
            .Connection = cadenaConexBD()
        End With

        Da.SelectCommand = Cmd
        Dt = New DataTable
        Da.Fill(Dt)
        DataGridView1.DataSource = Dt


        If (frmSelectLlamadas.rbAtencion.Checked = True) Then

            'Titulos del DataGrid
            DataGridView1.Columns(0).HeaderText = "ID"
            DataGridView1.Columns(1).HeaderText = "Fecha Auditoria"
            DataGridView1.Columns(2).HeaderText = "Fecha llamada"
            DataGridView1.Columns(3).HeaderText = "Nº Lote"
            DataGridView1.Columns(4).HeaderText = "Tipo llamada"
            DataGridView1.Columns(5).HeaderText = "Empresa"
            DataGridView1.Columns(6).HeaderText = "Controlador"
            DataGridView1.Columns(7).HeaderText = "Auditado"
            DataGridView1.Columns(8).HeaderText = "Saludo"
            DataGridView1.Columns(9).HeaderText = "Empatía"
            DataGridView1.Columns(10).HeaderText = "Indagación"
            DataGridView1.Columns(11).HeaderText = "Disposición"
            DataGridView1.Columns(12).HeaderText = "Compromiso"
            DataGridView1.Columns(13).HeaderText = "Precisión"
            DataGridView1.Columns(14).HeaderText = "Comunicación"
            DataGridView1.Columns(15).HeaderText = "Credibilidad"
            DataGridView1.Columns(16).HeaderText = "Cierre"
            DataGridView1.Columns(17).HeaderText = "Puntaje Final"
            DataGridView1.Columns(18).HeaderText = "Aspectos a Trabajar"
            DataGridView1.Columns(19).HeaderText = "Aspectos Favorables"
            DataGridView1.Columns(20).HeaderText = "Descripción Caso"
            'Titulo del formulario
            Me.Text = "LLamadas de Atencion"
        ElseIf (frmSelectLlamadas.RBventas.Checked = True) Then

            'Titulos del DataGrid
            DataGridView1.Columns(0).HeaderText = "ID"
            DataGridView1.Columns(1).HeaderText = "Fecha Auditoria"
            DataGridView1.Columns(2).HeaderText = "Fecha llamada"
            DataGridView1.Columns(3).HeaderText = "Nº Lote"
            DataGridView1.Columns(4).HeaderText = "Tipo llamada"
            DataGridView1.Columns(5).HeaderText = "Empresa"
            DataGridView1.Columns(6).HeaderText = "Controlador"
            DataGridView1.Columns(7).HeaderText = "Auditado"
            DataGridView1.Columns(8).HeaderText = "Saludo"
            DataGridView1.Columns(9).HeaderText = "Empatía"
            DataGridView1.Columns(10).HeaderText = "Indagación"
            DataGridView1.Columns(11).HeaderText = "Manejo"
            DataGridView1.Columns(12).HeaderText = "Entusiasmo"
            DataGridView1.Columns(13).HeaderText = "Speech"
            DataGridView1.Columns(14).HeaderText = "Presentación"
            DataGridView1.Columns(15).HeaderText = "Mecanismo"
            DataGridView1.Columns(16).HeaderText = "Cierre"
            DataGridView1.Columns(17).HeaderText = "Puntaje Final"
            DataGridView1.Columns(18).HeaderText = "Aspectos a Trabajar"
            DataGridView1.Columns(19).HeaderText = "Aspectos Favorables"
            DataGridView1.Columns(20).HeaderText = "Descripción Caso"
            'Titulo del formulario
            Me.Text = "LLamadas de Ventas"
        ElseIf (frmSelectLlamadas.RBPosventa.Checked = True) Then

            'Titulos del DataGrid

            DataGridView1.Columns(0).HeaderText = "ID"
            DataGridView1.Columns(1).HeaderText = "Fecha Auditoria"
            DataGridView1.Columns(2).HeaderText = "Fecha llamada"
            DataGridView1.Columns(3).HeaderText = "Nº Lote"
            DataGridView1.Columns(4).HeaderText = "Tipo llamada"
            DataGridView1.Columns(5).HeaderText = "Empresa"
            DataGridView1.Columns(6).HeaderText = "Controlador"
            DataGridView1.Columns(7).HeaderText = "Auditado"
            DataGridView1.Columns(8).HeaderText = "Saludo"
            DataGridView1.Columns(9).HeaderText = "Empatía"
            DataGridView1.Columns(10).HeaderText = "Escucha"
            DataGridView1.Columns(11).HeaderText = "Indagación"
            DataGridView1.Columns(12).HeaderText = "Disposición"
            DataGridView1.Columns(13).HeaderText = "Precisión"
            DataGridView1.Columns(14).HeaderText = "Comunicación"
            DataGridView1.Columns(15).HeaderText = "Cierre"
            DataGridView1.Columns(16).HeaderText = "Puntaje Final"
            DataGridView1.Columns(17).HeaderText = "Aspectos a Trabajar"
            DataGridView1.Columns(18).HeaderText = "Aspectos Favorables"
            DataGridView1.Columns(19).HeaderText = "Descripción Caso"
            'Titulo del formulario
            Me.Text = "LLamadas de POSVentas"

        End If



    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        GridAExcel(DataGridView1)
    End Sub
End Class